Easy Baby Massage/Easy Baby Massage.iso/pc/content/main.dcr/Internal_57_button interactive (color).ls

Text File | 2007-04-22 | 936 b | 38 lines

property pself, fcolor, bcolor, handle, linksprite

on beginSprite
  pself = sprite(the currentSpriteNum)
end

on mouseEnter
  pself.foreColor = fcolor
  if linksprite <> sprite(0) then
    linksprite.mouseEnter()
  end if
end

on mouseLeave
  pself.foreColor = bcolor
  if linksprite <> sprite(0) then
    linksprite.mouseLeave()
  end if
end

on mouseUp
  if handle <> VOID then
    do(handle)
  end if
  if linksprite <> sprite(0) then
    linksprite.mouseUp()
  end if
end

on getPropertyDescriptionList
  description = [:]
  addProp(description, #fcolor, [#default: 5, #format: #integer, #comment: "mouse over color"])
  addProp(description, #bcolor, [#default: 0, #format: #integer, #comment: "mouse out color"])
  addProp(description, #handle, [#default: EMPTY, #format: #string, #comment: "command"])
  addProp(description, #linksprite, [#default: sprite(0), #format: #sprite, #comment: "Link Sprite"])
  return description
end